(shell-command-on-region): Don't kill output buffer when in the one line case.

diff --git a/lisp/simple.el b/lisp/simple.el
index ad8ead703feef68cf27df9e1c6e91b4e44ef0461..6b7bc51dc2f7f8691423daaa8c99f78259dfcad3 100644 (file)
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -811,8 +811,7 @@ deleted."
                            (set-buffer buffer)
                            (goto-char (point-min))
                            (buffer-substring (point)
-                                             (progn (end-of-line) (point)))))
-                (kill-buffer buffer))
+                                             (progn (end-of-line) (point))))))
                (t 
                 (set-window-start (display-buffer buffer) 1))))))))
 \f